use Test::Simple tests => 1;

use SI::Person;

sub get_cominfo {
    my $sn = shift;
    my $person = SI::Person->new(sn=>$sn);
    $person->get_company();
}
my $p_sn = SI::Person->new()->find_sn('id', '411302198310203835')->[0];


ok(get_cominfo($p_sn)->id eq 'A_23','SI::Person->get_company is ok!');